home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / baswind8.arc / POPMENU.SUB < prev    next >
Text File  |  1990-09-14  |  2KB  |  32 lines
  1. '
  2. '
  3. '******************************************************************************
  4. '                    Function : POPMENU                                       *
  5. '                                                                             *
  6. ' Purpose:                                                                    *
  7. '                                                                             *
  8. '                                                                             *
  9. ' Results:                                                                    *
  10. '                                                                             *
  11. ' Usage  :                                                                    *
  12. '                                                                             *
  13. '                                                                             *
  14. ' Date Written : 09/01/90 - Date Tested: 09/01/90 - Author: James P Morgan    *
  15. ' Date Modified:          -            :          -       :                   *
  16. '-----------------------------------------------------------------------------*
  17. ' NOTE:                                                                       *
  18. '******************************************************************************
  19. '                                                                             *
  20. '     SUB PROGRAM NAME          (PARAMETERS)                 STATIC/RECURSIVE *
  21. '-----------------------------------------------------------------------------*
  22. '                                                                             *
  23. SUB POPMENU(HEADER$,CHOICES%,ITEM$(1),FRAME%,FORE%,BACK%,HFORE%,HBACK%,QUADRANT$,SHADOW%,SELECT.%,RETURN.CODE%) STATIC
  24.  
  25.        DEFINT A-Z                             'make all short interger by default
  26.  
  27.        SHOWITEMS%=CHOICES%                    'force a POPMENU from POPLIST subprogram
  28.        MAXITEMS%=CHOICES%
  29.  
  30.        CALL  POPLIST(HEADER$,SHOWITEMS%,MAXITEMS%,ITEM$(),FORE%,BACK%,HFORE%,HBACK%,QUADRANT$,SHADOW%,SELECT.%,RETURN.CODE%)
  31. END SUB
  32.